home *** CD-ROM | disk | FTP | other *** search
| Unknown | 1989-12-09 | 9.7 KB |
open in: 
MacOS 8.1
|
Win98
|
DOS
view JSON data
|
view as text
This file was not able to be converted.
This format is not currently supported by dexvert.
| Confidence | Program | Detection | Match Type | Support
|
|---|
| 100%
| file
| data
| default
| |
| 100%
| xdgMime
| image/x-tga
| default
|
|
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 11 f4 20 3e 20 | 21 52 75 6e 49 6d 61 67 |..... > |!RunImag|
|00000010| 65 0d 00 14 05 f4 0d 00 | 1e 2d f4 20 20 20 50 75 |e.......|.-. Pu|
|00000020| 72 70 6f 73 65 20 3a 2d | 20 54 6f 20 73 65 74 20 |rpose :-| To set |
|00000030| 2a 56 4f 4c 55 4d 45 20 | 76 69 61 20 64 65 73 6b |*VOLUME |via desk|
|00000040| 74 6f 70 0d 00 28 2c f4 | 20 20 20 41 75 74 68 6f |top..(,.| Autho|
|00000050| 72 20 20 3a 2d 20 4d 72 | 20 4a 2e 48 6f 72 73 6e |r :- Mr| J.Horsn|
|00000060| 65 6c 6c 2e 20 28 45 78 | 6f 72 63 69 73 74 29 0d |ell. (Ex|orcist).|
|00000070| 00 32 25 f4 20 20 20 56 | 65 72 73 69 6f 6e 20 3a |.2%. V|ersion :|
|00000080| 2d 20 31 2e 32 30 20 28 | 32 2d 4a 75 6c 79 2d 31 |- 1.20 (|2-July-1|
|00000090| 39 38 39 29 0d 00 3c 05 | f4 0d 00 46 26 f4 20 20 |989)..<.|...F&. |
|000000a0| 20 54 68 69 73 20 70 72 | 6f 67 72 61 6d 20 69 73 | This pr|ogram is|
|000000b0| 20 70 75 62 6c 69 63 20 | 64 6f 6d 61 69 6e 2e 0d | public |domain..|
|000000c0| 00 50 05 f4 0d 00 5a 04 | 0d 00 64 11 ee 20 85 20 |.P....Z.|..d.. . |
|000000d0| f1 f6 24 2c 9e 2c 9f 3a | e0 0d 00 6e 3a de 20 62 |..$,.,.:|...n:. b|
|000000e0| 25 20 26 34 30 30 2c 64 | 65 63 6f 6e 6c 79 20 36 |% &400,d|econly 6|
|000000f0| 3a 24 62 25 3d 22 54 41 | 53 4b 22 3a 24 64 65 63 |:$b%="TA|SK":$dec|
|00000100| 6f 6e 6c 79 3d 22 61 30 | 2d 39 22 3a f2 73 6f 75 |only="a0|-9":.sou|
|00000110| 6e 64 73 0d 00 78 38 c8 | 99 20 22 57 69 6d 70 5f |nds..x8.|. "Wimp_|
|00000120| 49 6e 69 74 69 61 6c 69 | 73 65 22 2c 32 30 30 2c |Initiali|se",200,|
|00000130| 21 62 25 2c 22 56 6f 6c | 75 6d 65 20 63 6f 6e 74 |!b%,"Vol|ume cont|
|00000140| 72 6f 6c 22 20 b8 20 2c | 49 44 25 0d 00 82 28 68 |rol" . ,|ID%...(h|
|00000150| 64 25 3d a3 3a 74 68 25 | 3d 2d 31 3a 54 25 3d 30 |d%=.:th%|=-1:T%=0|
|00000160| 3a ee 20 85 20 f2 5f 65 | 72 72 6f 72 3a f2 5f 71 |:. . ._e|rror:._q|
|00000170| 75 69 74 0d 00 8c 48 f2 | 5f 6c 6f 61 64 5f 73 70 |uit...H.|_load_sp|
|00000180| 72 69 74 65 73 28 22 3c | 21 56 6f 6c 75 6d 65 24 |rites("<|!Volume$|
|00000190| 44 69 72 3e 2e 53 70 72 | 69 74 65 73 22 29 3a c8 |Dir>.Spr|ites"):.|
|000001a0| 99 22 53 6f 75 6e 64 5f | 56 6f 6c 75 6d 65 22 2c |."Sound_|Volume",|
|000001b0| 30 20 b8 20 76 6f 6c 75 | 6d 65 25 0d 00 96 37 4d |0 . volu|me%...7M|
|000001c0| 6f 75 73 65 42 6f 78 25 | 3d a3 3a 6d 61 73 6b 25 |ouseBox%|=.:mask%|
|000001d0| 3d 30 3a 3a 77 68 25 3d | a4 5f 6d 61 6b 65 5f 77 |=0::wh%=|._make_w|
|000001e0| 69 6e 64 6f 77 28 62 25 | 2c 22 56 6f 6c 75 6d 65 |indow(b%|,"Volume|
|000001f0| 22 29 0d 00 a0 31 62 25 | 21 30 3d 77 68 25 3a c8 |")...1b%|!0=wh%:.|
|00000200| 99 20 22 57 69 6d 70 5f | 47 65 74 57 69 6e 64 6f |. "Wimp_|GetWindo|
|00000210| 77 49 6e 66 6f 22 2c 2c | 62 25 3a 62 25 21 32 38 |wInfo",,|b%:b%!28|
|00000220| 3d 2d 31 0d 00 aa 43 c8 | 99 20 22 57 69 6d 70 5f |=-1...C.|. "Wimp_|
|00000230| 47 65 74 50 6f 69 6e 74 | 65 72 49 6e 66 6f 22 2c |GetPoint|erInfo",|
|00000240| 2c 62 25 2b 31 30 30 3a | 62 25 21 34 3d 62 25 21 |,b%+100:|b%!4=b%!|
|00000250| 31 30 30 2d 31 35 30 3a | 62 25 21 38 3d 62 25 21 |100-150:|b%!8=b%!|
|00000260| 31 30 34 2d 35 30 0d 00 | b4 24 62 25 21 31 32 3d |104-50..|.$b%!12=|
|00000270| 62 25 21 31 30 30 2b 31 | 35 30 3a 62 25 21 31 36 |b%!100+1|50:b%!16|
|00000280| 3d 62 25 21 31 30 34 2b | 35 30 0d 00 be 2d e7 20 |=b%!104+|50...-. |
|00000290| 62 25 21 38 3c 31 33 36 | 20 62 25 21 31 36 2b 3d |b%!8<136| b%!16+=|
|000002a0| 31 33 36 2d 62 25 21 38 | 3a 62 25 21 38 2b 3d 31 |136-b%!8|:b%!8+=1|
|000002b0| 33 36 2d 62 25 21 38 0d | 00 c8 1c c8 99 20 22 57 |36-b%!8.|..... "W|
|000002c0| 69 6d 70 5f 4f 70 65 6e | 57 69 6e 64 6f 77 22 2c |imp_Open|Window",|
|000002d0| 2c 62 25 0d 00 d2 13 f2 | 5f 70 72 65 70 61 72 65 |,b%.....|_prepare|
|000002e0| 5f 6d 65 6e 75 73 0d 00 | dc 04 0d 00 e6 05 f5 0d |_menus..|........|
|000002f0| 00 f0 21 20 c8 99 22 57 | 69 6d 70 5f 50 6f 6c 6c |..! .."W|imp_Poll|
|00000300| 22 2c 30 2c 62 25 20 b8 | 20 61 63 74 69 6f 6e 25 |",0,b% .| action%|
|00000310| 0d 00 fa 11 20 c8 8e 20 | 61 63 74 69 6f 6e 25 20 |.... .. |action% |
|00000320| ca 0d 01 04 26 20 20 c9 | 20 30 20 3a 20 c8 99 20 |....& .| 0 : .. |
|00000330| 22 53 6f 75 6e 64 5f 56 | 6f 6c 75 6d 65 22 2c 30 |"Sound_V|olume",0|
|00000340| 20 b8 20 76 6f 6c 25 0d | 01 0e 20 20 20 20 20 20 | . vol%.|.. |
|00000350| 20 20 20 20 20 20 e7 20 | 76 6f 6c 25 3c 3e 76 6f | . |vol%<>vo|
|00000360| 6c 75 6d 65 25 20 8c 0d | 01 18 32 20 20 20 20 20 |lume% ..|..2 |
|00000370| 20 20 20 20 20 20 20 76 | 6f 6c 75 6d 65 25 3d 76 | v|olume%=v|
|00000380| 6f 6c 25 3a 24 28 6c 70 | 25 29 3d c3 28 76 6f 6c |ol%:$(lp|%)=.(vol|
|00000390| 75 6d 65 25 29 2b bd 31 | 33 0d 01 22 35 20 20 20 |ume%)+.1|3.."5 |
|000003a0| 20 20 20 20 20 20 20 20 | 20 c8 99 22 57 69 6d 70 | | .."Wimp|
|000003b0| 5f 46 6f 72 63 65 52 65 | 64 72 61 77 22 2c 77 68 |_ForceRe|draw",wh|
|000003c0| 25 2c 31 34 2c 35 32 2c | 32 38 32 2c 38 34 0d 01 |%,14,52,|282,84..|
|000003d0| 2c 22 20 20 20 20 20 20 | 20 20 20 20 20 20 f2 5f |," | ._|
|000003e0| 72 65 64 72 61 77 5f 77 | 69 6e 64 6f 77 28 a3 29 |redraw_w|indow(.)|
|000003f0| 0d 01 36 10 20 20 20 20 | 20 20 20 20 20 20 20 cd |..6. | .|
|00000400| 0d 01 40 1c 20 20 20 20 | 20 20 20 20 20 20 20 e7 |..@. | .|
|00000410| 20 4d 6f 75 73 65 42 6f | 78 25 20 8c 0d 01 4a 2c | MouseBo|x% ...J,|
|00000420| 20 20 20 20 20 20 20 20 | 20 20 20 20 c8 99 20 22 | | .. "|
|00000430| 57 69 6d 70 5f 47 65 74 | 50 6f 69 6e 74 65 72 49 |Wimp_Get|PointerI|
|00000440| 6e 66 6f 22 2c 2c 62 25 | 0d 01 54 1a 20 20 20 20 |nfo",,b%|..T. |
|00000450| 20 20 20 20 20 20 20 20 | e7 20 62 25 21 38 3d 30 | |. b%!8=0|
|00000460| 20 8c 0d 01 5e 42 20 20 | 20 20 20 20 20 20 20 20 | ...^B | |
|00000470| 20 20 20 4d 6f 75 73 65 | 42 6f 78 25 3d a3 3a 62 | Mouse|Box%=.:b|
|00000480| 25 21 31 30 30 3d 31 31 | 3a 62 25 21 31 30 34 3d |%!100=11|:b%!104=|
|00000490| 31 32 3a 62 25 21 31 30 | 38 3d 34 3a 62 25 21 31 |12:b%!10|8=4:b%!1|
|000004a0| 31 32 3d 35 0d 01 68 3c | 20 20 20 20 20 20 20 20 |12=5..h<| |
|000004b0| 20 20 20 20 20 62 25 21 | 31 31 36 3d 2d 31 3a c8 | b%!|116=-1:.|
|000004c0| 99 22 4f 53 5f 52 65 61 | 64 56 64 75 56 61 72 69 |."OS_Rea|dVduVari|
|000004d0| 61 62 6c 65 73 22 2c 62 | 25 2b 31 30 30 2c 62 25 |ables",b|%+100,b%|
|000004e0| 0d 01 72 47 20 20 20 20 | 20 20 20 20 20 20 20 20 |..rG | |
|000004f0| 20 53 57 25 3d 28 31 3c | 3c 28 62 25 21 38 29 29 | SW%=(1<|<(b%!8))|
|00000500| 2a 28 28 62 25 21 30 29 | 2b 31 29 3a 53 48 25 3d |*((b%!0)|+1):SH%=|
|00000510| 28 31 3c 3c 28 62 25 21 | 31 32 29 29 2a 28 28 62 |(1<<(b%!|12))*((b|
|00000520| 25 21 34 29 2b 31 29 0d | 01 7c 29 20 20 20 20 20 |%!4)+1).|.|) |
|00000530| 20 20 20 20 20 20 20 20 | c8 97 20 c8 93 20 30 2c | |.. .. 0,|
|00000540| 30 2c 53 57 25 2c 53 48 | 25 2d 31 3a 54 25 3d 30 |0,SW%,SH|%-1:T%=0|
|00000550| 0d 01 86 18 20 20 20 20 | 20 20 20 20 20 20 20 20 |.... | |
|00000560| 20 e7 20 68 64 25 20 8c | 0d 01 90 35 20 20 20 20 | . hd% .|...5 |
|00000570| 20 20 20 20 20 20 20 20 | 20 20 62 25 21 30 3d 77 | | b%!0=w|
|00000580| 68 25 3a c8 99 22 57 69 | 6d 70 5f 47 65 74 57 69 |h%:.."Wi|mp_GetWi|
|00000590| 6e 64 6f 77 49 6e 66 6f | 22 2c 2c 62 25 0d 01 9a |ndowInfo|",,b%...|
|000005a0| 39 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 62 |9 | b|
|000005b0| 25 21 32 38 3d 74 68 25 | 3a c8 99 22 57 69 6d 70 |%!28=th%|:.."Wimp|
|000005c0| 5f 4f 70 65 6e 57 69 6e | 64 6f 77 22 2c 2c 62 25 |_OpenWin|dow",,b%|
|000005d0| 3a 68 64 25 3d a3 0d 01 | a4 12 20 20 20 20 20 20 |:hd%=...|.. |
|000005e0| 20 20 20 20 20 20 20 cd | 0d 01 ae 11 20 20 20 20 | .|.... |
|000005f0| 20 20 20 20 20 20 20 20 | cd 0d 01 b8 10 20 20 20 | |..... |
|00000600| 20 20 20 20 20 20 20 20 | cd 0d 01 c2 1e 20 20 c9 | |..... .|
|00000610| 20 31 20 3a 20 f2 5f 72 | 65 64 72 61 77 5f 77 69 | 1 : ._r|edraw_wi|
|00000620| 6e 64 6f 77 28 b9 29 0d | 01 cc 23 20 20 c9 20 32 |ndow(.).|..# . 2|
|00000630| 20 3a 20 c8 99 22 57 69 | 6d 70 5f 4f 70 65 6e 57 | : .."Wi|mp_OpenW|
|00000640| 69 6e 64 6f 77 22 2c 2c | 62 25 0d 01 d6 12 20 20 |indow",,|b%.... |
|00000650| c9 20 33 20 3a 20 f2 5f | 71 75 69 74 0d 01 e0 19 |. 3 : ._|quit....|
|00000660| 20 20 c9 20 36 20 3a 20 | f2 5f 6d 6f 75 73 65 5f | . 6 : |._mouse_|
|00000670| 63 6c 69 63 6b 0d 01 ea | 19 20 20 c9 20 39 20 3a |click...|. . 9 :|
|00000680| 20 f2 5f 6d 65 6e 75 5f | 73 65 6c 65 63 74 0d 01 | ._menu_|select..|
|00000690| f4 21 20 20 c9 20 31 37 | 2c 31 38 20 3a 20 f2 5f |.! . 17|,18 : ._|
|000006a0| 72 65 63 65 69 76 65 5f | 6d 65 73 73 61 67 65 0d |receive_|message.|
|000006b0| 01 fe 06 20 cb 0d 02 08 | 07 fd 20 30 0d 02 12 04 |... ....|.. 0....|
|000006c0| 0d 02 1c 1f dd 20 a4 5f | 6d 61 6b 65 5f 77 69 6e |..... ._|make_win|
|000006d0| 64 6f 77 28 62 25 2c 54 | 24 29 3a ea 20 68 25 0d |dow(b%,T|$):. h%.|
|000006e0| 02 26 42 62 25 21 30 3d | 37 30 30 3a 62 25 21 34 |.&Bb%!0=|700:b%!4|
|000006f0| 3d 36 30 30 3a 62 25 21 | 38 3d 31 30 30 30 3a 62 |=600:b%!|8=1000:b|
|00000700| 25 21 31 32 3d 37 30 30 | 3a 62 25 21 31 36 3d 30 |%!12=700|:b%!16=0|
|00000710| 3a 62 25 21 32 30 3d 30 | 3a 62 25 21 32 34 3d 2d |:b%!20=0|:b%!24=-|
|00000720| 31 0d 02 30 43 62 25 21 | 32 38 3d 26 38 37 30 30 |1..0Cb%!|28=&8700|
|00000730| 30 30 30 33 3a 62 25 3f | 33 32 3d 37 3a 62 25 3f |0003:b%?|32=7:b%?|
|00000740| 33 33 3d 32 3a 62 25 3f | 33 34 3d 37 3a 62 25 3f |33=2:b%?|34=7:b%?|
|00000750| 33 35 3d 31 3a 62 25 3f | 33 36 3d 30 3a 62 25 3f |35=1:b%?|36=0:b%?|
|00000760| 33 37 3d 30 0d 02 3a 42 | 62 25 3f 33 38 3d 31 32 |37=0..:B|b%?38=12|
|00000770| 3a 62 25 3f 33 39 3d 30 | 3a 62 25 21 34 30 3d 30 |:b%?39=0|:b%!40=0|
|00000780| 3a 62 25 21 34 34 3d 30 | 3a 62 25 21 34 38 3d 33 |:b%!44=0|:b%!48=3|
|00000790| 30 30 3a 62 25 21 35 32 | 3d 31 30 30 3a 62 25 21 |00:b%!52|=100:b%!|
|000007a0| 35 36 3d 26 31 39 0d 02 | 44 3b 62 25 21 36 30 3d |56=&19..|D;b%!60=|
|000007b0| 32 3a 62 25 21 36 34 3d | 73 70 72 25 3a 62 25 21 |2:b%!64=|spr%:b%!|
|000007c0| 36 38 3d 30 3a 24 28 62 | 25 2b 37 32 29 3d c0 54 |68=0:$(b|%+72)=.T|
|000007d0| 24 2c 31 31 29 2b bd 31 | 33 3a 62 25 21 38 34 3d |$,11)+.1|3:b%!84=|
|000007e0| 33 0d 02 4e 4c 62 25 21 | 38 38 3d 32 3a 62 25 21 |3..NLb%!|88=2:b%!|
|000007f0| 39 32 3d 34 30 3a 62 25 | 21 39 36 3d 32 39 38 3a |92=40:b%|!96=298:|
|00000800| 62 25 21 31 30 30 3d 39 | 36 3a 62 25 21 31 30 34 |b%!100=9|6:b%!104|
|00000810| 3d 26 32 30 38 32 3a 24 | 28 62 25 2b 31 30 38 29 |=&2082:$|(b%+108)|
|00000820| 3d 22 76 6f 6c 75 6d 65 | 5f 62 61 72 22 0d 02 58 |="volume|_bar"..X|
|00000830| 39 62 25 21 31 32 30 3d | 38 3a 62 25 21 31 32 34 |9b%!120=|8:b%!124|
|00000840| 3d 34 3a 62 25 21 31 32 | 38 3d 38 38 3a 62 25 21 |=4:b%!12|8=88:b%!|
|00000850| 31 33 32 3d 33 36 3a 62 | 25 21 31 33 36 3d 26 42 |132=36:b|%!136=&B|
|00000860| 30 30 30 30 31 39 0d 02 | 62 42 24 28 62 25 2b 31 |000019..|bB$(b%+1|
|00000870| 34 30 29 3d 22 51 75 69 | 65 74 22 2b bd 31 33 3a |40)="Qui|et"+.13:|
|00000880| 62 25 21 31 35 32 3d 32 | 32 36 3a 62 25 21 31 35 |b%!152=2|26:b%!15|
|00000890| 36 3d 34 3a 62 25 21 31 | 36 30 3d 32 39 32 3a 62 |6=4:b%!1|60=292:b|
|000008a0| 25 21 31 36 34 3d 33 36 | 0d 02 6c 28 62 25 21 31 |%!164=36|..l(b%!1|
|000008b0| 36 38 3d 26 42 30 30 30 | 30 31 39 3a 24 28 62 25 |68=&B000|019:$(b%|
|000008c0| 2b 31 37 32 29 3d 22 4c | 6f 75 64 22 2b bd 31 33 |+172)="L|oud"+.13|
|000008d0| 0d 02 76 26 c8 99 22 57 | 69 6d 70 5f 43 72 65 61 |..v&.."W|imp_Crea|
|000008e0| 74 65 57 69 6e 64 6f 77 | 22 2c 2c 62 25 20 b8 20 |teWindow|",,b% . |
|000008f0| 68 25 3a 3d 68 25 0d 02 | 80 04 0d 02 8a 04 0d 02 |h%:=h%..|........|
|00000900| 94 19 dd 20 f2 5f 72 65 | 64 72 61 77 5f 77 69 6e |... ._re|draw_win|
|00000910| 64 6f 77 28 52 25 29 0d | 02 9e 2c 20 e7 20 52 25 |dow(R%).|.., . R%|
|00000920| 20 c8 99 20 22 57 69 6d | 70 5f 52 65 64 72 61 77 | .. "Wim|p_Redraw|
|00000930| 57 69 6e 64 6f 77 22 2c | 2c 62 25 20 b8 20 6d 6f |Window",|,b% . mo|
|00000940| 72 65 25 0d 02 a8 0d 20 | c8 95 20 6d 6f 72 65 25 |re%.... |.. more%|
|00000950| 0d 02 b2 38 20 20 c8 99 | 22 57 69 6d 70 5f 53 65 |...8 ..|"Wimp_Se|
|00000960| 74 43 6f 6c 6f 75 72 22 | 2c 31 32 3a c8 93 20 c8 |tColour"|,12:.. .|
|00000970| 90 20 62 25 21 34 2b 31 | 34 2c 62 25 21 38 2b 34 |. b%!4+1|4,b%!8+4|
|00000980| 38 2c 32 36 36 2c 33 36 | 0d 02 bc 0c 20 20 e7 20 |8,266,36|.... . |
|00000990| 52 25 20 8c 0d 02 c6 2c | 20 20 20 c8 99 22 57 69 |R% ....,| .."Wi|
|000009a0| 6d 70 5f 53 65 74 43 6f | 6c 6f 75 72 22 2c 37 3a |mp_SetCo|lour",7:|
|000009b0| ec 20 62 25 21 34 2b 39 | 36 2c 62 25 21 38 2b 38 |. b%!4+9|6,b%!8+8|
|000009c0| 0d 02 d0 2e 20 20 20 ec | 20 62 25 21 34 2b 32 31 |.... .| b%!4+21|
|000009d0| 38 2c 62 25 21 38 2b 38 | 3a f0 20 38 35 2c 62 25 |8,b%!8+8|:. 85,b%|
|000009e0| 21 34 2b 32 31 38 2c 62 | 25 21 38 2b 33 32 0d 02 |!4+218,b|%!8+32..|
|000009f0| da 07 20 20 cd 0d 02 e4 | 36 20 20 c8 99 22 57 69 |.. ....|6 .."Wi|
|00000a00| 6d 70 5f 53 65 74 43 6f | 6c 6f 75 72 22 2c 31 31 |mp_SetCo|lour",11|
|00000a10| 3a 61 25 3d 62 25 21 34 | 2b 31 32 2b 32 36 38 2f |:a%=b%!4|+12+268/|
|00000a20| 31 32 37 2a 76 6f 6c 75 | 6d 65 25 0d 02 ee 3f 20 |127*volu|me%...? |
|00000a30| 20 c8 93 20 c8 90 20 61 | 25 2d 32 2c 62 25 21 38 | .. .. a|%-2,b%!8|
|00000a40| 2b 34 38 2c 32 2c 33 38 | 3a c8 99 22 57 69 6d 70 |+48,2,38|:.."Wimp|
|00000a50| 5f 47 65 74 52 65 63 74 | 61 6e 67 6c 65 22 2c 2c |_GetRect|angle",,|
|00000a60| 62 25 20 b8 20 6d 6f 72 | 65 25 0d 02 f8 06 20 ce |b% . mor|e%.... .|
|00000a70| 0d 03 02 05 e1 0d 03 0c | 04 0d 03 16 13 dd 20 f2 |........|...... .|
|00000a80| 5f 6d 6f 75 73 65 5f 63 | 6c 69 63 6b 0d 03 20 12 |_mouse_c|lick.. .|
|00000a90| 6d 62 25 3d 28 62 25 21 | 38 29 20 80 20 37 0d 03 |mb%=(b%!|8) . 7..|
|00000aa0| 2a 0c c8 8e 20 6d 62 25 | 20 ca 0d 03 34 20 20 c9 |*... mb%| ...4 .|
|00000ab0| 20 34 2c 31 20 3a 20 f4 | 20 61 6c 74 65 72 20 73 | 4,1 : .| alter s|
|00000ac0| 6f 75 6e 64 20 6c 65 76 | 65 6c 0d 03 3e 13 20 20 |ound lev|el..>. |
|00000ad0| e7 20 62 25 21 31 32 3d | 77 68 25 20 8c 0d 03 48 |. b%!12=|wh% ...H|
|00000ae0| 2e 20 20 20 62 25 21 34 | 30 3d 77 68 25 3a c8 99 |. b%!4|0=wh%:..|
|00000af0| 22 57 69 6d 70 5f 47 65 | 74 57 69 6e 64 6f 77 49 |"Wimp_Ge|tWindowI|
|00000b00| 6e 66 6f 22 2c 2c 62 25 | 2b 34 30 0d 03 52 46 20 |nfo",,b%|+40..RF |
|00000b10| 20 20 e7 20 62 25 21 36 | 38 3c 3e 2d 31 20 68 64 | . b%!6|8<>-1 hd|
|00000b20| 25 3d b9 3a 74 68 25 3d | 62 25 21 36 38 3a 62 25 |%=.:th%=|b%!68:b%|
|00000b30| 21 36 38 3d 2d 31 3a c8 | 99 22 57 69 6d 70 5f 4f |!68=-1:.|."Wimp_O|
|00000b40| 70 65 6e 57 69 6e 64 6f | 77 22 2c 2c 62 25 2b 34 |penWindo|w",,b%+4|
|00000b50| 30 0d 03 5c 26 20 20 20 | 78 25 3d 28 62 25 21 30 |0..\& |x%=(b%!0|
|00000b60| 2d 62 25 21 34 34 29 2d | 38 3a 79 25 3d 62 25 21 |-b%!44)-|8:y%=b%!|
|00000b70| 34 2d 62 25 21 34 38 0d | 03 66 28 20 20 20 e7 20 |4-b%!48.|.f( . |
|00000b80| 78 25 3e 32 20 80 20 78 | 25 3c 32 37 36 20 80 20 |x%>2 . x|%<276 . |
|00000b90| 79 25 3e 34 36 20 80 20 | 79 25 3c 38 38 20 8c 0d |y%>46 . |y%<88 ..|
|00000ba0| 03 70 32 20 20 20 20 c8 | 97 20 c8 93 20 62 25 21 |.p2 .|. .. b%!|
|00000bb0| 34 34 2b 31 32 2c 62 25 | 21 34 38 2b 34 38 2c 32 |44+12,b%|!48+48,2|
|00000bc0| 37 30 2c 33 38 3a 4d 6f | 75 73 65 42 6f 78 25 3d |70,38:Mo|useBox%=|
|00000bd0| b9 0d 03 7a 25 20 20 20 | 20 61 25 3d 31 30 30 2f |...z% | a%=100/|
|00000be0| 32 37 30 2a 78 25 3a 76 | 6f 6c 25 3d 31 32 37 2f |270*x%:v|ol%=127/|
|00000bf0| 31 30 30 2a 61 25 0d 03 | 84 2d 20 20 20 20 e7 20 |100*a%..|.- . |
|00000c00| 76 6f 6c 25 3c 31 20 76 | 6f 6c 25 3d 31 20 8b 20 |vol%<1 v|ol%=1 . |
|00000c10| e7 20 76 6f 6c 25 3e 31 | 32 37 20 76 6f 6c 25 3d |. vol%>1|27 vol%=|
|00000c20| 31 32 37 0d 03 8e 19 20 | 20 20 20 e7 20 76 6f 6c |127.... | . vol|
|00000c30| 25 3c 3e 76 6f 6c 75 6d | 65 25 20 8c 0d 03 98 44 |%<>volum|e% ....D|
|00000c40| 20 20 20 20 20 76 6f 6c | 75 6d 65 25 3d 76 6f 6c | vol|ume%=vol|
|00000c50| 25 3a c8 99 22 53 6f 75 | 6e 64 5f 56 6f 6c 75 6d |%:.."Sou|nd_Volum|
|00000c60| 65 22 2c 76 6f 6c 75 6d | 65 25 3a 24 28 6c 70 25 |e",volum|e%:$(lp%|
|00000c70| 29 3d c3 28 76 6f 6c 75 | 6d 65 25 29 2b bd 31 33 |)=.(volu|me%)+.13|
|00000c80| 0d 03 a2 41 20 20 20 20 | 20 c8 99 22 57 69 6d 70 |...A | .."Wimp|
|00000c90| 5f 46 6f 72 63 65 52 65 | 64 72 61 77 22 2c 77 68 |_ForceRe|draw",wh|
|00000ca0| 25 2c 31 34 2c 35 32 2c | 32 38 32 2c 38 34 3a f2 |%,14,52,|282,84:.|
|00000cb0| 5f 72 65 64 72 61 77 5f | 77 69 6e 64 6f 77 28 a3 |_redraw_|window(.|
|00000cc0| 29 0d 03 ac 09 20 20 20 | 20 cd 0d 03 b6 36 20 20 |).... | ....6 |
|00000cd0| 20 20 e7 20 6d 62 25 3d | 34 20 80 20 28 91 3e 54 | . mb%=|4 . (.>T|
|00000ce0| 25 2b 35 20 84 20 54 25 | 3d 30 29 20 8c 20 d4 20 |%+5 . T%|=0) . . |
|00000cf0| 31 2c 2d 31 35 2c 31 30 | 30 2c 35 3a 54 25 3d 91 |1,-15,10|0,5:T%=.|
|00000d00| 0d 03 c0 08 20 20 20 cd | 0d 03 ca 07 20 20 cd 0d |.... .|.... ..|
|00000d10| 03 d4 37 20 c9 20 32 20 | 3a 20 f4 20 53 59 53 20 |..7 . 2 |: . SYS |
|00000d20| 22 57 69 6d 70 5f 43 72 | 65 61 74 65 4d 65 6e 75 |"Wimp_Cr|eateMenu|
|00000d30| 22 2c 2c 6d 70 25 2c 21 | 62 25 2d 31 30 30 2c 62 |",,mp%,!|b%-100,b|
|00000d40| 25 21 34 2b 31 32 0d 03 | de 36 20 20 20 20 20 20 |%!4+12..|.6 |
|00000d50| 20 20 20 20 f2 5f 63 72 | 65 61 74 65 5f 6d 65 6e | ._cr|eate_men|
|00000d60| 75 28 6d 61 69 6e 6d 65 | 6e 75 24 2c 21 62 25 2d |u(mainme|nu$,!b%-|
|00000d70| 31 30 30 2c 62 25 21 34 | 2b 31 32 29 0d 03 e8 05 |100,b%!4|+12)....|
|00000d80| cb 0d 03 f2 05 e1 0d 03 | fc 04 0d 04 06 13 dd 20 |........|....... |
|00000d90| f2 5f 6d 65 6e 75 5f 73 | 65 6c 65 63 74 0d 04 10 |._menu_s|elect...|
|00000da0| 0c c8 8e 20 21 62 25 20 | ca 0d 04 1a 27 20 c9 20 |... !b% |....' . |
|00000db0| 30 20 3a 20 f4 20 27 41 | 62 6f 75 74 20 74 68 69 |0 : . 'A|bout thi|
|00000dc0| 73 20 70 72 6f 67 72 61 | 6d 27 20 65 6e 74 72 79 |s progra|m' entry|
|00000dd0| 0d 04 24 1d 20 c9 20 31 | 20 3a 20 f4 20 53 65 74 |..$. . 1| : . Set|
|00000de0| 20 76 6f 6c 75 6d 65 20 | 6c 65 76 65 6c 0d 04 2e | volume |level...|
|00000df0| 25 20 20 e7 20 bb 28 24 | 28 6c 70 25 29 29 3c 31 |% . .($|(lp%))<1|
|00000e00| 20 84 20 bb 28 24 28 6c | 70 25 29 29 3e 31 32 37 | . .($(l|p%))>127|
|00000e10| 20 8c 0d 04 38 1c 20 20 | 20 24 28 6c 70 25 29 3d | ...8. | $(lp%)=|
|00000e20| c3 28 76 6f 6c 75 6d 65 | 25 29 2b bd 31 33 0d 04 |.(volume|%)+.13..|
|00000e30| 42 07 20 20 cc 0d 04 4c | 31 20 20 20 76 6f 6c 75 |B. ...L|1 volu|
|00000e40| 6d 65 25 3d bb 28 24 28 | 6c 70 25 29 29 3a c8 99 |me%=.($(|lp%)):..|
|00000e50| 22 53 6f 75 6e 64 5f 56 | 6f 6c 75 6d 65 22 2c 76 |"Sound_V|olume",v|
|00000e60| 6f 6c 75 6d 65 25 0d 04 | 56 39 20 20 20 d4 31 2c |olume%..|V9 .1,|
|00000e70| 2d 31 35 2c 31 30 30 2c | 34 3a c8 99 22 57 69 6d |-15,100,|4:.."Wim|
|00000e80| 70 5f 46 6f 72 63 65 52 | 65 64 72 61 77 22 2c 77 |p_ForceR|edraw",w|
|00000e90| 68 25 2c 31 34 2c 35 32 | 2c 32 38 32 2c 38 34 0d |h%,14,52|,282,84.|
|00000ea0| 04 60 19 20 20 20 f2 5f | 72 65 64 72 61 77 5f 77 |.`. ._|redraw_w|
|00000eb0| 69 6e 64 6f 77 28 a3 29 | 0d 04 6a 07 20 20 cd 0d |indow(.)|..j. ..|
|00000ec0| 04 74 1f 20 c9 20 32 20 | 3a 20 e7 20 62 25 21 38 |.t. . 2 |: . b%!8|
|00000ed0| 3e 3d 30 20 80 20 62 25 | 21 38 3c 38 20 8c 0d 04 |>=0 . b%|!8<8 ...|
|00000ee0| 75 43 20 20 20 20 20 20 | 20 20 20 20 20 ff 22 43 |uC | ."C|
|00000ef0| 48 41 4e 4e 45 4c 56 4f | 49 43 45 20 31 20 22 2b |HANNELVO|ICE 1 "+|
|00000f00| c3 28 28 28 62 25 21 34 | 29 2a 38 29 2b 31 2b 62 |.(((b%!4|)*8)+1+b|
|00000f10| 25 21 38 29 3a d4 31 2c | 2d 31 35 2c 31 30 30 2c |%!8):.1,|-15,100,|
|00000f20| 34 0d 04 76 0f 20 20 20 | 20 20 20 20 20 20 20 cd |4..v. | .|
|00000f30| 0d 04 7e 11 20 c9 20 33 | 20 3a 20 f2 5f 71 75 69 |..~. . 3| : ._qui|
|00000f40| 74 0d 04 88 05 cb 0d 04 | 92 1f c8 99 22 57 69 6d |t.......|...."Wim|
|00000f50| 70 5f 47 65 74 50 6f 69 | 6e 74 65 72 49 6e 66 6f |p_GetPoi|nterInfo|
|00000f60| 22 2c 2c 62 25 0d 04 9c | 11 e7 20 62 25 21 38 3d |",,b%...|.. b%!8=|
|00000f70| 25 30 30 31 20 8c 0d 04 | a6 31 20 f4 20 53 59 53 |%001 ...|.1 . SYS|
|00000f80| 20 22 57 69 6d 70 5f 43 | 72 65 61 74 65 4d 65 6e | "Wimp_C|reateMen|
|00000f90| 75 22 2c 2c 6d 70 25 2c | 21 62 25 2d 31 30 30 2c |u",,mp%,|!b%-100,|
|00000fa0| 62 25 21 34 2b 31 32 0d | 04 b0 2d 20 f2 5f 63 72 |b%!4+12.|..- ._cr|
|00000fb0| 65 61 74 65 5f 6d 65 6e | 75 28 6d 61 69 6e 6d 65 |eate_men|u(mainme|
|00000fc0| 6e 75 24 2c 21 62 25 2d | 31 30 30 2c 62 25 21 34 |nu$,!b%-|100,b%!4|
|00000fd0| 2b 31 32 29 0d 04 ba 05 | cd 0d 04 c4 05 e1 0d 04 |+12)....|........|
|00000fe0| ce 04 0d 04 d8 17 dd 20 | f2 5f 72 65 63 65 69 76 |....... |._receiv|
|00000ff0| 65 5f 6d 65 73 73 61 67 | 65 0d 04 e2 0e c8 8e 20 |e_messag|e...... |
|00001000| 62 25 21 31 36 20 ca 0d | 04 ec 11 20 c9 20 30 20 |b%!16 ..|... . 0 |
|00001010| 3a 20 f2 5f 71 75 69 74 | 0d 04 f6 1e 20 c9 20 26 |: ._quit|.... . &|
|00001020| 35 30 32 20 3a 20 f4 20 | 68 65 6c 70 20 72 65 71 |502 : . |help req|
|00001030| 75 65 73 74 65 64 0d 05 | 00 24 20 20 62 25 21 31 |uested..|.$ b%!1|
|00001040| 32 3d 62 25 21 38 3a 62 | 25 21 31 36 3d 26 35 30 |2=b%!8:b|%!16=&50|
|00001050| 33 3a 70 25 3d 62 25 2b | 32 30 0d 05 0a 13 20 20 |3:p%=b%+|20.... |
|00001060| e7 20 62 25 21 33 32 3d | 77 68 25 20 8c 0d 05 14 |. b%!32=|wh% ....|
|00001070| 32 20 20 20 f2 68 65 6c | 70 28 22 54 68 69 73 20 |2 .hel|p("This |
|00001080| 69 73 20 74 68 65 20 56 | 4f 4c 55 4d 45 20 63 6f |is the V|OLUME co|
|00001090| 6e 74 72 6f 6c 20 77 69 | 6e 64 6f 77 2e 22 29 0d |ntrol wi|ndow.").|
|000010a0| 05 1e 45 20 20 20 f2 68 | 65 6c 70 28 22 43 6c 69 |..E .h|elp("Cli|
|000010b0| 63 6b 20 53 45 4c 45 43 | 54 20 6f 6e 20 74 68 65 |ck SELEC|T on the|
|000010c0| 20 62 61 72 20 74 6f 20 | 61 6c 74 65 72 20 74 68 | bar to |alter th|
|000010d0| 65 20 2a 56 4f 4c 55 4d | 45 20 73 65 74 74 69 6e |e *VOLUM|E settin|
|000010e0| 67 2e 22 29 0d 05 28 3a | 20 20 20 f2 68 65 6c 70 |g.")..(:| .help|
|000010f0| 28 22 43 6c 69 63 6b 20 | 41 44 4a 55 53 54 20 6f |("Click |ADJUST o|
|00001100| 6e 20 74 68 65 20 62 61 | 72 20 74 6f 20 64 6f 20 |n the ba|r to do |
|00001110| 69 74 20 73 69 6c 65 6e | 74 6c 79 2e 22 29 0d 05 |it silen|tly.")..|
|00001120| 32 07 20 20 cd 0d 05 3c | 1d 20 20 3f 70 25 3d 30 |2. ...<|. ?p%=0|
|00001130| 3a 62 25 21 30 3d 28 70 | 25 2b 34 2d 62 25 29 80 |:b%!0=(p|%+4-b%).|
|00001140| ac 33 0d 05 46 25 20 20 | c8 99 22 57 69 6d 70 5f |.3..F% |.."Wimp_|
|00001150| 53 65 6e 64 4d 65 73 73 | 61 67 65 22 2c 31 37 2c |SendMess|age",17,|
|00001160| 62 25 2c 62 25 21 34 0d | 05 50 42 20 c9 20 26 34 |b%,b%!4.|.PB . &4|
|00001170| 30 30 43 32 3a e7 20 62 | 25 21 34 3c 3e 49 44 25 |00C2:. b|%!4<>ID%|
|00001180| 20 80 20 22 56 6f 6c 75 | 6d 65 20 63 6f 6e 74 72 | . "Volu|me contr|
|00001190| 6f 6c 22 3d a4 73 74 72 | 69 6e 67 28 62 25 2b 32 |ol"=.str|ing(b%+2|
|000011a0| 38 29 20 f2 5f 71 75 69 | 74 0d 05 5a 05 cb 0d 05 |8) ._qui|t..Z....|
|000011b0| 64 05 e1 0d 05 6e 04 0d | 05 78 3c dd 20 a4 73 74 |d....n..|.x<. .st|
|000011c0| 72 69 6e 67 28 73 25 29 | 3a 74 6d 70 24 3d 22 22 |ring(s%)|:tmp$=""|
|000011d0| 3a c8 95 20 3f 73 25 3c | 3e 30 3a 74 6d 70 24 2b |:.. ?s%<|>0:tmp$+|
|000011e0| 3d bd 3f 73 25 3a 73 25 | 2b 3d 31 3a ce 3a 3d 74 |=.?s%:s%|+=1:.:=t|
|000011f0| 6d 70 24 0d 05 82 04 0d | 05 8c 27 dd 20 f2 68 65 |mp$.....|..'. .he|
|00001200| 6c 70 28 54 24 29 3a 24 | 70 25 3d 54 24 2b 22 7c |lp(T$):$|p%=T$+"||
|00001210| 4d 22 3a 70 25 2b 3d a9 | 54 24 2b 32 3a e1 0d 05 |M":p%+=.|T$+2:...|
|00001220| 96 04 0d 05 a0 22 dd 20 | f2 5f 71 75 69 74 3a c8 |.....". |._quit:.|
|00001230| 99 20 22 57 69 6d 70 5f | 43 6c 6f 73 65 44 6f 77 |. "Wimp_|CloseDow|
|00001240| 6e 22 3a e0 0d 05 aa 04 | 0d 05 b4 39 dd 20 f2 5f |n":.....|...9. ._|
|00001250| 6c 6f 61 64 5f 73 70 72 | 69 74 65 73 28 66 24 29 |load_spr|ites(f$)|
|00001260| 3a de 20 73 70 72 25 20 | 26 33 31 30 3a 73 70 72 |:. spr% |&310:spr|
|00001270| 25 21 30 3d 26 33 30 30 | 3a 73 70 72 25 21 34 3d |%!0=&300|:spr%!4=|
|00001280| 30 0d 05 be 30 73 70 72 | 25 21 38 3d 31 36 3a 73 |0...0spr|%!8=16:s|
|00001290| 70 72 25 21 31 32 3d 31 | 36 3a c8 99 20 26 32 45 |pr%!12=1|6:.. &2E|
|000012a0| 2c 32 35 36 2b 31 30 2c | 73 70 72 25 2c 66 24 3a |,256+10,|spr%,f$:|
|000012b0| e1 0d 05 c8 04 0d 05 d2 | 31 dd 20 a4 5f 69 6e 66 |........|1. ._inf|
|000012c0| 6f 5f 77 69 6e 64 6f 77 | 28 4e 24 2c 50 24 2c 41 |o_window|(N$,P$,A|
|000012d0| 24 2c 56 24 2c 62 25 29 | 3a ea 20 74 25 3a 74 25 |$,V$,b%)|:. t%:t%|
|000012e0| 3d a9 28 4e 24 29 0d 05 | dc 37 62 25 21 30 3d 30 |=.(N$)..|.7b%!0=0|
|000012f0| 3a 62 25 21 34 3d 30 3a | 62 25 21 31 32 3d 32 31 |:b%!4=0:|b%!12=21|
|00001300| 32 3a 62 25 21 31 36 3d | 30 3a e7 20 a9 28 50 24 |2:b%!16=|0:. .(P$|
|00001310| 29 3e 74 25 20 74 25 3d | a9 28 50 24 29 0d 05 e6 |)>t% t%=|.(P$)...|
|00001320| 38 62 25 21 32 30 3d 30 | 3a 62 25 21 32 34 3d 2d |8b%!20=0|:b%!24=-|
|00001330| 31 3a 62 25 21 32 38 3d | 26 38 34 30 30 30 30 39 |1:b%!28=|&8400009|
|00001340| 33 3a e7 20 a9 28 41 24 | 29 3e 74 25 20 74 25 3d |3:. .(A$|)>t% t%=|
|00001350| a9 28 41 24 29 0d 05 f0 | 37 62 25 3f 33 32 3d 37 |.(A$)...|7b%?32=7|
|00001360| 3a 62 25 3f 33 33 3d 32 | 3a 62 25 3f 33 34 3d 37 |:b%?33=2|:b%?34=7|
|00001370| 3a 62 25 3f 33 35 3d 31 | 3a e7 20 a9 28 56 24 29 |:b%?35=1|:. .(V$)|
|00001380| 3e 74 25 20 74 25 3d a9 | 28 56 24 29 0d 05 fa 3a |>t% t%=.|(V$)...:|
|00001390| 62 25 21 38 3d 32 37 38 | 2b 74 25 2a 31 36 3a 62 |b%!8=278|+t%*16:b|
|000013a0| 25 3f 33 36 3d 30 3a 62 | 25 3f 33 37 3d 30 3a 62 |%?36=0:b|%?37=0:b|
|000013b0| 25 3f 33 38 3d 30 3a 62 | 25 3f 33 39 3d 30 3a 62 |%?38=0:b|%?39=0:b|
|000013c0| 25 21 34 30 3d 30 0d 06 | 04 39 62 25 21 34 34 3d |%!40=0..|.9b%!44=|
|000013d0| 2d 32 31 32 3a 62 25 21 | 34 38 3d 32 38 30 2b 74 |-212:b%!|48=280+t|
|000013e0| 25 2a 31 36 3a 62 25 21 | 35 32 3d 30 3a 62 25 21 |%*16:b%!|52=0:b%!|
|000013f0| 35 36 3d 26 31 31 39 3a | 62 25 21 36 30 3d 30 0d |56=&119:|b%!60=0.|
|00001400| 06 0e 40 62 25 21 36 34 | 3d 30 3a 62 25 21 36 38 |..@b%!64|=0:b%!68|
|00001410| 3d 30 3a de 20 62 25 21 | 37 32 20 32 30 3a 24 28 |=0:. b%!|72 20:$(|
|00001420| 62 25 21 37 32 29 3d 22 | 41 62 6f 75 74 20 74 68 |b%!72)="|About th|
|00001430| 69 73 20 70 72 6f 67 72 | 61 6d 22 2b bd 31 33 0d |is progr|am"+.13.|
|00001440| 06 18 43 62 25 21 37 36 | 3d 2d 31 3a 62 25 21 38 |..Cb%!76|=-1:b%!8|
|00001450| 30 3d 32 30 3a 62 25 21 | 38 34 3d 38 3a 62 25 21 |0=20:b%!|84=8:b%!|
|00001460| 38 38 3d 34 3a 62 25 21 | 39 32 3d 2d 35 32 3a 62 |88=4:b%!|92=-52:b|
|00001470| 25 21 39 36 3d 31 35 36 | 3a 62 25 21 31 30 30 3d |%!96=156|:b%!100=|
|00001480| 2d 34 0d 06 22 3e 62 25 | 21 31 30 34 3d 26 37 30 |-4..">b%|!104=&70|
|00001490| 30 30 32 31 31 3a 24 28 | 62 25 2b 31 30 38 29 3d |00211:$(|b%+108)=|
|000014a0| 22 4e 61 6d 65 3a 22 2b | bd 31 33 3a 62 25 21 31 |"Name:"+|.13:b%!1|
|000014b0| 32 30 3d 34 3a 62 25 21 | 31 32 34 3d 2d 31 30 34 |20=4:b%!|124=-104|
|000014c0| 0d 06 2c 42 62 25 21 31 | 32 38 3d 31 35 36 3a 62 |..,Bb%!1|28=156:b|
|000014d0| 25 21 31 33 32 3d 2d 35 | 36 3a 62 25 21 31 33 36 |%!132=-5|6:b%!136|
|000014e0| 3d 26 37 30 30 30 32 31 | 31 3a 24 28 62 25 2b 31 |=&700021|1:$(b%+1|
|000014f0| 34 30 29 3d 22 50 75 72 | 70 6f 73 65 3a 22 2b bd |40)="Pur|pose:"+.|
|00001500| 31 33 0d 06 36 3f 62 25 | 21 31 35 32 3d 34 3a 62 |13..6?b%|!152=4:b|
|00001510| 25 21 31 35 36 3d 2d 31 | 35 36 3a 62 25 21 31 36 |%!156=-1|56:b%!16|
|00001520| 30 3d 31 35 36 3a 62 25 | 21 31 36 34 3d 2d 31 30 |0=156:b%|!164=-10|
|00001530| 38 3a 62 25 21 31 36 38 | 3d 26 37 30 30 30 32 31 |8:b%!168|=&700021|
|00001540| 31 0d 06 40 3d 24 28 62 | 25 2b 31 37 32 29 3d 22 |1..@=$(b|%+172)="|
|00001550| 41 75 74 68 6f 72 3a 22 | 2b bd 28 31 33 29 3a 62 |Author:"|+.(13):b|
|00001560| 25 21 31 38 34 3d 34 3a | 62 25 21 31 38 38 3d 2d |%!184=4:|b%!188=-|
|00001570| 32 30 38 3a 62 25 21 31 | 39 32 3d 31 35 36 0d 06 |208:b%!1|92=156..|
|00001580| 4a 43 62 25 21 31 39 36 | 3d 2d 31 36 30 3a 62 25 |JCb%!196|=-160:b%|
|00001590| 21 32 30 30 3d 26 37 30 | 30 30 32 31 31 3a 24 28 |!200=&70|00211:$(|
|000015a0| 62 25 2b 32 30 34 29 3d | 22 56 65 72 73 69 6f 6e |b%+204)=|"Version|
|000015b0| 3a 22 2b bd 31 33 3a 62 | 25 21 32 31 36 3d 31 36 |:"+.13:b|%!216=16|
|000015c0| 30 0d 06 54 3a 62 25 21 | 32 32 30 3d 2d 35 32 3a |0..T:b%!|220=-52:|
|000015d0| 62 25 21 32 32 34 3d 32 | 37 32 2b 74 25 2a 31 36 |b%!224=2|72+t%*16|
|000015e0| 3a 62 25 21 32 32 38 3d | 2d 34 3a 62 25 21 32 33 |:b%!228=|-4:b%!23|
|000015f0| 32 3d 26 30 37 30 30 30 | 31 33 44 0d 06 5e 3e de |2=&07000|13D..^>.|
|00001600| 20 62 25 21 32 33 36 20 | a9 28 4e 24 29 2b 31 3a | b%!236 |.(N$)+1:|
|00001610| 24 28 62 25 21 32 33 36 | 29 3d 4e 24 2b bd 31 33 |$(b%!236|)=N$+.13|
|00001620| 3a 62 25 21 32 34 30 3d | 2d 31 3a 62 25 21 32 34 |:b%!240=|-1:b%!24|
|00001630| 34 3d a9 28 4e 24 29 2b | 31 0d 06 68 47 62 25 21 |4=.(N$)+|1..hGb%!|
|00001640| 32 34 38 3d 31 36 30 3a | 62 25 21 32 35 32 3d 2d |248=160:|b%!252=-|
|00001650| 31 30 34 3a 62 25 21 32 | 35 36 3d 32 37 32 2b 74 |104:b%!2|56=272+t|
|00001660| 25 2a 31 36 3a 62 25 21 | 32 36 30 3d 2d 35 36 3a |%*16:b%!|260=-56:|
|00001670| 62 25 21 32 36 34 3d 26 | 30 37 30 30 30 31 33 44 |b%!264=&|0700013D|
|00001680| 0d 06 72 3f de 20 62 25 | 21 32 36 38 20 a9 28 50 |..r?. b%|!268 .(P|
|00001690| 24 29 2b 31 3a 24 28 62 | 25 21 32 36 38 29 3d 50 |$)+1:$(b|%!268)=P|
|000016a0| 24 2b bd 31 33 3a 3a 62 | 25 21 32 37 32 3d 2d 31 |$+.13::b|%!272=-1|
|000016b0| 3a 62 25 21 32 37 36 3d | a9 28 50 24 29 2b 31 0d |:b%!276=|.(P$)+1.|
|000016c0| 06 7c 48 62 25 21 32 38 | 30 3d 31 36 30 3a 62 25 |.|Hb%!28|0=160:b%|
|000016d0| 21 32 38 34 3d 2d 31 35 | 36 3a 62 25 21 32 38 38 |!284=-15|6:b%!288|
|000016e0| 3d 32 37 32 2b 74 25 2a | 31 36 3a 62 25 21 32 39 |=272+t%*|16:b%!29|
|000016f0| 32 3d 2d 31 30 38 3a 62 | 25 21 32 39 36 3d 26 30 |2=-108:b|%!296=&0|
|00001700| 37 30 30 30 31 33 44 0d | 06 86 3e de 20 62 25 21 |700013D.|..>. b%!|
|00001710| 33 30 30 20 a9 28 41 24 | 29 2b 31 3a 24 28 62 25 |300 .(A$|)+1:$(b%|
|00001720| 21 33 30 30 29 3d 41 24 | 2b bd 31 33 3a 62 25 21 |!300)=A$|+.13:b%!|
|00001730| 33 30 34 3d 2d 31 3a 62 | 25 21 33 30 38 3d a9 28 |304=-1:b|%!308=.(|
|00001740| 41 24 29 2b 31 0d 06 90 | 48 62 25 21 33 31 32 3d |A$)+1...|Hb%!312=|
|00001750| 31 36 30 3a 62 25 21 33 | 31 36 3d 2d 32 30 38 3a |160:b%!3|16=-208:|
|00001760| 62 25 21 33 32 30 3d 32 | 37 32 2b 74 25 2a 31 36 |b%!320=2|72+t%*16|
|00001770| 3a 62 25 21 33 32 34 3d | 2d 31 36 30 3a 62 25 21 |:b%!324=|-160:b%!|
|00001780| 33 32 38 3d 26 30 37 30 | 30 30 31 33 44 0d 06 9a |328=&070|0013D...|
|00001790| 3e de 20 62 25 21 33 33 | 32 20 a9 28 56 24 29 2b |>. b%!33|2 .(V$)+|
|000017a0| 31 3a 24 28 62 25 21 33 | 33 32 29 3d 56 24 2b bd |1:$(b%!3|32)=V$+.|
|000017b0| 31 33 3a 62 25 21 33 33 | 36 3d 2d 31 3a 62 25 21 |13:b%!33|6=-1:b%!|
|000017c0| 33 34 30 3d a9 28 56 24 | 29 2b 31 0d 06 a4 27 c8 |340=.(V$|)+1...'.|
|000017d0| 99 20 22 57 69 6d 70 5f | 43 72 65 61 74 65 57 69 |. "Wimp_|CreateWi|
|000017e0| 6e 64 6f 77 22 2c 2c 62 | 25 20 b8 20 68 25 3a 3d |ndow",,b|% . h%:=|
|000017f0| 68 25 0d 06 ae 04 0d 06 | b8 14 dd 20 f2 5f 65 72 |h%......|... ._er|
|00001800| 72 6f 72 3a 62 25 21 30 | 3d 30 0d 06 c2 4b 24 28 |ror:b%!0|=0...K$(|
|00001810| 62 25 2b 34 29 3d 22 56 | 6f 6c 75 6d 65 20 68 61 |b%+4)="V|olume ha|
|00001820| 73 20 73 75 66 66 65 72 | 65 64 20 61 20 66 61 74 |s suffer|ed a fat|
|00001830| 61 6c 20 65 72 72 6f 72 | 20 61 6e 64 20 6d 75 73 |al error| and mus|
|00001840| 74 20 65 78 69 73 74 20 | 69 6d 6d 65 64 69 61 74 |t exist |immediat|
|00001850| 65 6c 79 2e 22 0d 06 cc | 28 e7 20 9f 3d 36 34 33 |ely."...|(. .=643|
|00001860| 20 8c 20 24 28 62 25 2b | 34 29 3d 22 54 6f 6f 20 | . $(b%+|4)="Too |
|00001870| 6d 61 6e 79 20 77 69 6e | 64 6f 77 73 22 0d 06 d6 |many win|dows"...|
|00001880| 2e c8 99 22 57 69 6d 70 | 5f 52 65 70 6f 72 74 45 |..."Wimp|_ReportE|
|00001890| 72 72 6f 72 22 2c 62 25 | 2c 31 2c 22 56 6f 6c 75 |rror",b%|,1,"Volu|
|000018a0| 6d 65 20 63 6f 6e 74 72 | 6f 6c 22 0d 06 e0 05 e1 |me contr|ol".....|
|000018b0| 0d 06 ea 04 0d 06 f4 0d | dd 20 f2 73 6f 75 6e 64 |........|. .sound|
|000018c0| 73 0d 06 fe 15 50 25 3d | 31 3a de 20 53 6f 75 6e |s....P%=|1:. Soun|
|000018d0| 64 25 28 33 32 29 0d 07 | 08 50 73 6f 75 6e 64 24 |d%(32)..|.Psound$|
|000018e0| 3d 22 7e 53 6f 75 6e 64 | 73 2c 23 3e 73 6f 75 6e |="~Sound|s,#>soun|
|000018f0| 64 31 24 20 31 2d 20 38 | 2c 23 3e 73 6f 75 6e 64 |d1$ 1- 8|,#>sound|
|00001900| 32 24 20 39 2d 31 36 2c | 23 3e 73 6f 75 6e 64 33 |2$ 9-16,|#>sound3|
|00001910| 24 31 37 2d 32 34 2c 23 | 3e 73 6f 75 6e 64 34 24 |$17-24,#|>sound4$|
|00001920| 32 35 2d 33 32 22 0d 07 | 12 2b 73 6f 75 6e 64 31 |25-32"..|.+sound1|
|00001930| 24 3d 22 7e 53 6f 75 6e | 64 73 22 3a f2 73 6f 75 |$="~Soun|ds":.sou|
|00001940| 6e 64 69 6e 73 74 28 31 | 2c 73 6f 75 6e 64 31 24 |ndinst(1|,sound1$|
|00001950| 29 0d 07 1c 2b 73 6f 75 | 6e 64 32 24 3d 22 7e 53 |)...+sou|nd2$="~S|
|00001960| 6f 75 6e 64 73 22 3a f2 | 73 6f 75 6e 64 69 6e 73 |ounds":.|soundins|
|00001970| 74 28 39 2c 73 6f 75 6e | 64 32 24 29 0d 07 26 2c |t(9,soun|d2$)..&,|
|00001980| 73 6f 75 6e 64 33 24 3d | 22 7e 53 6f 75 6e 64 73 |sound3$=|"~Sounds|
|00001990| 22 3a f2 73 6f 75 6e 64 | 69 6e 73 74 28 31 37 2c |":.sound|inst(17,|
|000019a0| 73 6f 75 6e 64 33 24 29 | 0d 07 30 2c 73 6f 75 6e |sound3$)|..0,soun|
|000019b0| 64 34 24 3d 22 7e 53 6f | 75 6e 64 73 22 3a f2 73 |d4$="~So|unds":.s|
|000019c0| 6f 75 6e 64 69 6e 73 74 | 28 32 35 2c 73 6f 75 6e |oundinst|(25,soun|
|000019d0| 64 34 24 29 0d 07 3a 05 | e1 0d 07 44 04 0d 07 4e |d4$)..:.|...D...N|
|000019e0| 20 dd 20 f2 73 6f 75 6e | 64 69 6e 73 74 28 53 74 | . .soun|dinst(St|
|000019f0| 25 2c f8 20 73 73 74 72 | 69 6e 67 24 29 0d 07 58 |%,. sstr|ing$)..X|
|00001a00| 22 20 e3 20 49 25 3d 53 | 74 25 20 b8 20 53 74 25 |" . I%=S|t% . St%|
|00001a10| 2b 37 3a 53 6f 75 6e 64 | 25 28 49 25 29 3d 30 0d |+7:Sound|%(I%)=0.|
|00001a20| 07 62 27 20 20 c8 99 20 | 22 53 6f 75 6e 64 5f 49 |.b' .. |"Sound_I|
|00001a30| 6e 73 74 61 6c 6c 56 6f | 69 63 65 22 2c 30 2c 49 |nstallVo|ice",0,I|
|00001a40| 25 20 b8 20 73 25 0d 07 | 6c 0e 20 20 e7 20 73 25 |% . s%..|l. . s%|
|00001a50| 3e 30 20 8c 0d 07 76 32 | 20 20 20 20 c1 73 6f 75 |>0 ...v2| .sou|
|00001a60| 6e 64 24 2c 39 2b 28 53 | 74 25 20 81 20 38 29 2a |nd$,9+(S|t% . 8)*|
|00001a70| 31 35 29 3d 22 2e 22 3a | 53 24 3d a4 73 74 72 69 |15)=".":|S$=.stri|
|00001a80| 6e 67 28 73 25 29 0d 07 | 8a 3d 20 20 20 20 de 20 |ng(s%)..|.= . |
|00001a90| 74 6d 70 25 20 28 a9 28 | 53 24 29 2b 31 29 3a 53 |tmp% (.(|S$)+1):S|
|00001aa0| 6f 75 6e 64 25 28 49 25 | 29 3d 74 6d 70 25 3a 24 |ound%(I%|)=tmp%:$|
|00001ab0| 28 53 6f 75 6e 64 25 28 | 49 25 29 29 3d 53 24 2b |(Sound%(|I%))=S$+|
|00001ac0| bd 31 33 0d 07 b2 40 20 | 20 20 20 73 73 74 72 69 |.13...@ | sstri|
|00001ad0| 6e 67 24 2b 3d 22 2c 24 | 2a 3c 22 2b c3 28 a9 53 |ng$+=",$|*<"+.(.S|
|00001ae0| 24 29 2b 22 3e 22 2b c3 | 28 53 6f 75 6e 64 25 28 |$)+">"+.|(Sound%(|
|00001af0| 49 25 29 29 2b 22 28 22 | 2b c3 28 a9 53 24 29 2b |I%))+"("|+.(.S$)+|
|00001b00| 22 29 22 0d 07 b3 07 20 | 20 cc 0d 07 b4 36 20 20 |")".... | ....6 |
|00001b10| 20 20 73 73 74 72 69 6e | 67 24 2b 3d 22 2c 7c 23 | sstrin|g$+=",|#|
|00001b20| 45 6e 64 22 3a c1 73 6f | 75 6e 64 24 2c 39 2b 28 |End":.so|und$,9+(|
|00001b30| 53 74 25 20 81 20 38 29 | 2a 31 35 29 3d 22 7c 22 |St% . 8)|*15)="|"|
|00001b40| 0d 07 bc 07 20 20 cd 0d | 07 c6 06 20 ed 0d 07 d0 |.... ..|... ....|
|00001b50| 05 e1 0d 07 da 04 0d 07 | e4 05 e1 0d 07 ee 04 0d |........|........|
|00001b60| 07 f8 15 dd 20 f2 5f 70 | 72 65 70 61 72 65 5f 6d |.... ._p|repare_m|
|00001b70| 65 6e 75 73 0d 08 02 3c | 20 f4 20 7e 20 62 65 66 |enus...<| . ~ bef|
|00001b80| 6f 72 65 20 66 69 72 73 | 74 20 69 74 65 6d 20 69 |ore firs|t item i|
|00001b90| 6e 64 69 63 61 74 65 73 | 20 74 69 74 6c 65 2c 6f |ndicates| title,o|
|00001ba0| 74 68 65 72 77 69 73 65 | 20 69 67 6e 6f 72 65 64 |therwise| ignored|
|00001bb0| 0d 08 0c 40 20 f4 20 a4 | 20 69 6e 73 65 72 74 20 |...@ . .| insert |
|00001bc0| 74 68 65 20 63 6f 6e 74 | 65 6e 74 73 20 6f 66 20 |the cont|ents of |
|00001bd0| 61 6e 6f 74 68 65 72 20 | 73 74 72 69 6e 67 2e 3a |another |string.:|
|00001be0| 20 65 67 2e 20 20 20 2c | a4 6d 65 6e 75 32 24 40 | eg. ,|.menu2$@|
|00001bf0| 0d 08 16 17 20 f4 20 2f | 20 69 74 65 6d 20 69 73 |.... . /| item is|
|00001c00| 20 74 69 63 6b 65 64 0d | 08 20 27 20 f4 20 23 20 | ticked.|. ' . # |
|00001c10| 69 74 65 6d 20 69 73 20 | 73 68 61 64 65 64 20 28 |item is |shaded (|
|00001c20| 75 6e 2d 73 65 6c 65 63 | 74 61 62 6c 65 29 0d 08 |un-selec|table)..|
|00001c30| 2a 23 20 f4 20 3a 20 61 | 20 64 6f 74 74 65 64 20 |*# . : a| dotted |
|00001c40| 6c 69 6e 65 20 66 6f 6c | 6c 6f 77 73 20 69 74 65 |line fol|lows ite|
|00001c50| 6d 0d 08 34 43 20 f4 20 | 24 20 69 74 65 6d 20 69 |m..4C . |$ item i|
|00001c60| 73 20 77 72 69 74 65 61 | 62 6c 65 2e 3a 20 20 20 |s writea|ble.: |
|00001c70| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00001c80| 20 20 65 67 2e 20 20 2c | 24 62 6c 6f 63 6b 25 28 | eg. ,|$block%(|
|00001c90| 6c 65 6e 29 0d 08 3e 47 | 20 f4 20 20 20 20 20 2b |len)..>G| . +|
|00001ca0| 6f 70 74 69 6f 6e 61 6c | 20 76 61 6c 69 64 61 74 |optional| validat|
|00001cb0| 69 6f 6e 20 73 74 72 69 | 6e 67 20 20 20 20 20 20 |ion stri|ng |
|00001cc0| 20 20 20 20 20 65 67 2e | 20 20 2c 24 62 6c 6f 63 | eg.| ,$bloc|
|00001cd0| 6b 25 28 6c 65 6e 29 76 | 61 6c 25 0d 08 48 4b 20 |k%(len)v|al%..HK |
|00001ce0| f4 20 20 20 20 20 2b 6f | 70 74 69 6f 6e 61 6c 20 |. +o|ptional |
|00001cf0| 6d 65 6e 75 20 69 74 65 | 6d 20 77 69 64 74 68 20 |menu ite|m width |
|00001d00| 28 69 6e 20 63 68 61 72 | 73 29 20 20 65 67 2e 20 |(in char|s) eg. |
|00001d10| 20 2c 24 3c 31 32 3e 62 | 6c 6f 63 6b 25 28 6c 65 | ,$<12>b|lock%(le|
|00001d20| 6e 29 76 61 6c 25 0d 08 | 52 4c 20 f4 20 24 2a 20 |n)val%..|RL . $* |
|00001d30| 61 73 20 61 62 6f 76 65 | 20 62 75 74 20 6e 6f 6e |as above| but non|
|00001d40| 2d 77 72 69 74 65 61 62 | 6c 65 20 20 20 20 20 20 |-writeab|le |
|00001d50| 20 20 20 20 20 20 20 65 | 67 2e 20 20 2c 24 2a 3c | e|g. ,$*<|
|00001d60| 31 32 3e 62 6c 6f 63 6b | 25 28 6c 65 6e 29 76 61 |12>block|%(len)va|
|00001d70| 6c 25 0d 08 5c 11 20 f4 | 20 40 20 72 65 73 65 72 |l%..\. .| @ reser|
|00001d80| 76 65 64 0d 08 66 41 20 | f4 20 3e 20 69 74 65 6d |ved..fA |. > item|
|00001d90| 20 68 61 73 20 61 20 73 | 75 62 20 6d 65 6e 75 2e | has a s|ub menu.|
|00001da0| 3a 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |: | |
|00001db0| 20 20 20 20 65 67 2e 20 | 20 2c 3e 6d 65 6e 75 24 | eg. | ,>menu$|
|00001dc0| 69 74 65 6d 0d 08 70 44 | 20 f4 20 7d 20 69 74 65 |item..pD| . } ite|
|00001dd0| 6d 20 68 61 73 20 61 20 | 73 75 62 20 77 69 6e 64 |m has a |sub wind|
|00001de0| 6f 77 2e 3a 20 20 20 20 | 20 20 20 20 20 20 20 20 |ow.: | |
|00001df0| 20 20 20 20 20 65 67 2e | 20 20 2c 7d 77 69 6e 64 | eg.| ,}wind|
|00001e00| 6f 77 25 40 69 74 65 6d | 0d 08 7a 10 20 f4 20 2e |ow%@item|..z. . .|
|00001e10| 20 69 67 6e 6f 72 65 64 | 0d 08 84 1a 20 f4 20 7c | ignored|.... . ||
|00001e20| 20 74 68 69 73 20 69 73 | 20 6c 61 73 74 20 69 74 | this is| last it|
|00001e30| 65 6d 0d 08 8e 38 20 6c | 69 73 74 24 3d 22 a4 2f |em...8 l|ist$="./|
|00001e40| 23 3a 24 3e 7d 2e 7c 22 | 3a de 20 6d 73 25 20 26 |#:$>}.|"|:. ms% &|
|00001e50| 31 30 30 30 3a 6d 66 25 | 3d 6d 73 25 3a 6d 65 25 |1000:mf%|=ms%:me%|
|00001e60| 3d 6d 73 25 2b 26 31 30 | 30 30 0d 08 98 1f 20 e3 |=ms%+&10|00.... .|
|00001e70| 20 49 25 3d 6d 73 25 20 | b8 20 6d 65 25 20 88 20 | I%=ms% |. me% . |
|00001e80| 34 3a 21 49 25 3d 30 3a | ed 0d 08 a2 4a 20 6d 61 |4:!I%=0:|....J ma|
|00001e90| 69 6e 6d 65 6e 75 24 3d | 22 7e 56 6f 6c 75 6d 65 |inmenu$=|"~Volume|
|00001ea0| 2c 7d 69 6e 66 6f 77 69 | 6e 64 6f 77 25 40 49 6e |,}infowi|ndow%@In|
|00001eb0| 66 6f 2c 3e 6c 65 76 65 | 6c 24 4c 65 76 65 6c 2c |fo,>leve|l$Level,|
|00001ec0| 3e 73 6f 75 6e 64 24 53 | 6f 75 6e 64 2c 7c 51 75 |>sound$S|ound,|Qu|
|00001ed0| 69 74 22 0d 08 ac 23 20 | 6c 65 76 65 6c 24 3d 22 |it"...# |level$="|
|00001ee0| 7e 4c 65 76 65 6c 2c 24 | 6c 6d 25 28 34 29 64 65 |~Level,$|lm%(4)de|
|00001ef0| 63 6f 6e 6c 79 22 0d 08 | b6 28 20 de 20 6c 6d 25 |conly"..|.( . lm%|
|00001f00| 20 36 3a 24 6c 6d 25 3d | c3 28 76 6f 6c 75 6d 65 | 6:$lm%=|.(volume|
|00001f10| 25 29 2b bd 31 33 3a 6c | 70 25 3d 6c 6d 25 0d 08 |%)+.13:l|p%=lm%..|
|00001f20| c0 6d 20 69 6e 66 6f 77 | 69 6e 64 6f 77 25 3d a4 |.m infow|indow%=.|
|00001f30| 5f 69 6e 66 6f 5f 77 69 | 6e 64 6f 77 28 22 56 6f |_info_wi|ndow("Vo|
|00001f40| 6c 75 6d 65 20 63 6f 6e | 74 72 6f 6c 22 2c 22 53 |lume con|trol","S|
|00001f50| 65 74 20 2a 56 4f 4c 55 | 4d 45 20 6c 65 76 65 6c |et *VOLU|ME level|
|00001f60| 22 2c bd 31 36 39 2b 22 | 20 45 78 6f 72 63 69 73 |",.169+"| Exorcis|
|00001f70| 74 22 2c 22 32 2e 30 30 | 20 28 32 33 2d 4e 6f 76 |t","2.00| (23-Nov|
|00001f80| 2d 31 39 38 39 29 22 2c | 62 25 29 0d 08 ca 06 20 |-1989)",|b%).... |
|00001f90| e1 0d 09 38 04 0d 09 42 | 25 dd 20 f2 5f 63 72 65 |...8...B|%. ._cre|
|00001fa0| 61 74 65 5f 6d 65 6e 75 | 28 6d 24 2c 78 25 2c 79 |ate_menu|(m$,x%,y|
|00001fb0| 25 29 3a 6d 66 25 3d 6d | 73 25 0d 09 4c 21 20 ea |%):mf%=m|s%..L! .|
|00001fc0| 20 6d 65 6e 75 25 3a 6d | 65 6e 75 25 3d 6d 66 25 | menu%:m|enu%=mf%|
|00001fd0| 3a f2 5f 6d 65 6e 75 28 | 6d 24 29 0d 09 56 25 20 |:._menu(|m$)..V% |
|00001fe0| c8 99 22 57 69 6d 70 5f | 43 72 65 61 74 65 4d 65 |.."Wimp_|CreateMe|
|00001ff0| 6e 75 22 2c 2c 6d 65 6e | 75 25 2c 78 25 2c 79 25 |nu",,men|u%,x%,y%|
|00002000| 0d 09 60 05 e1 0d 09 6a | 04 0d 09 74 2a dd 20 f2 |..`....j|...t*. .|
|00002010| 5f 6d 65 6e 75 28 6d 31 | 24 29 3a ea 20 6d 25 2c |_menu(m1|$):. m%,|
|00002020| 74 25 2c 74 24 2c 6d 62 | 25 2c 77 25 2c 63 25 2c |t%,t$,mb|%,w%,c%,|
|00002030| 6c 63 25 0d 09 7e 33 20 | 6d 62 25 3d 6d 66 25 3a |lc%..~3 |mb%=mf%:|
|00002040| 6d 25 3d 6d 66 25 3a 63 | 25 3d a4 5f 69 74 65 6d |m%=mf%:c|%=._item|
|00002050| 73 28 6d 31 24 29 3a 6d | 66 25 2b 3d 28 32 38 2b |s(m1$):m|f%+=(28+|
|00002060| 63 25 2a 32 34 29 0d 09 | 88 2e 20 e7 20 c0 6d 31 |c%*24)..|.. . .m1|
|00002070| 24 2c 31 29 3d 22 7e 22 | 20 8c 20 74 24 3d c1 a4 |$,1)="~"| . t$=..|
|00002080| 69 74 65 6d 28 6d 31 24 | 29 2c 32 29 20 8b 20 74 |item(m1$|),2) . t|
|00002090| 24 3d 22 22 0d 09 92 34 | 20 24 6d 25 3d 74 24 3a |$=""...4| $m%=t$:|
|000020a0| 6d 25 3f 31 32 3d 37 3a | 6d 25 3f 31 33 3d 32 3a |m%?12=7:|m%?13=2:|
|000020b0| 6d 25 3f 31 34 3d 37 3a | 6d 25 3f 31 35 3d 30 3a |m%?14=7:|m%?15=0:|
|000020c0| 77 25 3d a9 28 74 24 29 | 0d 09 9c 25 20 6d 25 21 |w%=.(t$)|...% m%!|
|000020d0| 31 36 3d 77 25 3a 6d 25 | 21 32 30 3d 34 34 3a 6d |16=w%:m%|!20=44:m|
|000020e0| 25 21 32 34 3d 30 3a 6d | 25 2b 3d 32 38 0d 09 a6 |%!24=0:m|%+=28...|
|000020f0| 26 20 f5 3a f2 5f 6d 65 | 6e 75 69 74 65 6d 28 a4 |& .:._me|nuitem(.|
|00002100| 69 74 65 6d 28 6d 31 24 | 29 29 3a fd 20 6d 31 24 |item(m1$|)):. m1$|
|00002110| 3d 22 22 0d 09 b0 2d 20 | 21 28 6d 25 2d 32 34 29 |=""...- |!(m%-24)|
|00002120| 3d 28 21 28 6d 25 2d 32 | 34 29 29 84 20 26 38 30 |=(!(m%-2|4)). &80|
|00002130| 3a 6d 62 25 21 31 36 3d | 77 25 2a 31 36 2b 31 36 |:mb%!16=|w%*16+16|
|00002140| 0d 09 ba 06 20 e1 0d 09 | c4 04 0d 09 ce 1b dd 20 |.... ...|....... |
|00002150| a4 5f 69 74 65 6d 73 28 | 69 24 29 3a ea 20 61 25 |._items(|i$):. a%|
|00002160| 3a 61 25 3d 30 0d 09 d8 | 18 20 e7 20 c0 69 24 2c |:a%=0...|. . .i$,|
|00002170| 31 29 3c 3e 22 7e 22 20 | 61 25 2b 3d 31 0d 09 e2 |1)<>"~" |a%+=1...|
|00002180| 12 20 c8 95 20 a7 69 24 | 2c 22 2c 22 29 3e 30 0d |. .. .i$|,",")>0.|
|00002190| 09 ec 1e 20 20 61 25 2b | 3d 31 3a 69 24 3d c1 69 |... a%+|=1:i$=.i|
|000021a0| 24 2c a7 69 24 2c 22 2c | 22 29 2b 31 29 0d 09 f6 |$,.i$,",|")+1)...|
|000021b0| 34 20 20 e7 20 c0 69 24 | 2c 31 29 3d 22 a4 22 20 |4 . .i$|,1)="." |
|000021c0| 61 25 2b 3d a4 5f 69 74 | 65 6d 73 28 a0 28 c1 69 |a%+=._it|ems(.(.i|
|000021d0| 24 2c 32 2c a7 69 24 2c | 22 40 22 29 2d 31 29 29 |$,2,.i$,|"@")-1))|
|000021e0| 29 0d 0a 00 07 20 20 ce | 0d 0a 0a 08 20 3d 61 25 |).... .|.... =a%|
|000021f0| 0d 0a 14 04 0d 0a 1e 1f | dd 20 a4 69 74 65 6d 28 |........|. .item(|
|00002200| f8 20 69 24 29 3a ea 20 | 74 25 2c 74 24 3a 74 24 |. i$):. |t%,t$:t$|
|00002210| 3d 69 24 0d 0a 28 22 20 | 74 25 3d a7 69 24 2c 22 |=i$..(" |t%=.i$,"|
|00002220| 2c 22 29 3a e7 20 74 25 | 3d 30 20 74 25 3d a9 28 |,"):. t%|=0 t%=.(|
|00002230| 69 24 29 2b 31 0d 0a 32 | 1c 20 69 24 3d c1 69 24 |i$)+1..2|. i$=.i$|
|00002240| 2c 74 25 2b 31 29 3a 3d | c0 74 24 2c 74 25 2d 31 |,t%+1):=|.t$,t%-1|
|00002250| 29 0d 0a 3c 04 0d 0a 46 | 34 dd 20 f2 5f 6d 65 6e |)..<...F|4. ._men|
|00002260| 75 69 74 65 6d 28 6d 24 | 29 3a e7 20 6d 25 2b 32 |uitem(m$|):. m%+2|
|00002270| 34 3e 6d 65 25 20 85 20 | 31 2c 22 6d 65 6e 75 20 |4>me% . |1,"menu |
|00002280| 6f 76 65 72 6c 6f 61 64 | 22 0d 0a 50 1e 20 ea 20 |overload|"..P. . |
|00002290| 66 25 2c 73 25 3a 66 25 | 3d 30 3a 73 25 3d 30 3a |f%,s%:f%|=0:s%=0:|
|000022a0| 6d 25 21 34 3d 2d 31 0d | 0a 5a 20 20 c8 95 20 a7 |m%!4=-1.|.Z .. .|
|000022b0| 6c 69 73 74 24 2c c0 6d | 24 2c 31 29 29 3e 30 3a |list$,.m|$,1))>0:|
|000022c0| f2 70 61 72 73 3a ce 0d | 0a 64 1f 20 6d 25 21 30 |.pars:..|.d. m%!0|
|000022d0| 3d 66 25 3a 6d 25 21 38 | 3d 26 37 30 30 30 30 30 |=f%:m%!8|=&700000|
|000022e0| 31 20 84 20 73 25 0d 0a | 6e 2e 20 e7 20 6d 24 3c |1 . s%..|n. . m$<|
|000022f0| 3e 22 40 22 20 24 28 6d | 25 2b 31 32 29 3d 6d 24 |>"@" $(m|%+12)=m$|
|00002300| 3a e7 20 a9 28 6d 24 29 | 3e 77 25 20 77 25 3d a9 |:. .(m$)|>w% w%=.|
|00002310| 28 6d 24 29 0d 0a 78 0d | 20 6d 25 2b 3d 32 34 3a |(m$)..x.| m%+=24:|
|00002320| e1 0d 0a 82 04 0d 0a 8c | 10 dd 20 f2 70 61 72 73 |........|.. .pars|
|00002330| 3a ea 20 74 25 0d 0a 96 | 10 20 c8 8e 20 c0 6d 24 |:. t%...|. .. .m$|
|00002340| 2c 31 29 20 ca 0d 0a a0 | 16 20 20 c9 20 22 2e 22 |,1) ....|. . "."|
|00002350| 20 3a 6d 24 3d c1 6d 24 | 2c 32 29 0d 0a aa 16 20 | :m$=.m$|,2).... |
|00002360| 20 c9 20 22 7e 22 20 3a | 6d 24 3d c1 6d 24 2c 32 | . "~" :|m$=.m$,2|
|00002370| 29 0d 0a b4 20 20 20 c9 | 20 22 2f 22 20 3a 6d 24 |)... .| "/" :m$|
|00002380| 3d c1 6d 24 2c 32 29 3a | 66 25 3d 66 25 20 84 20 |=.m$,2):|f%=f% . |
|00002390| 31 0d 0a be 21 20 20 c9 | 20 22 23 22 20 3a 6d 24 |1...! .| "#" :m$|
|000023a0| 3d c1 6d 24 2c 32 29 3a | 73 25 3d 26 34 30 30 30 |=.m$,2):|s%=&4000|
|000023b0| 30 30 0d 0a c8 27 20 20 | c9 20 22 3a 22 20 3a 6d |00...' |. ":" :m|
|000023c0| 24 3d c1 6d 24 2c 32 29 | 3a 66 25 3d 66 25 20 84 |$=.m$,2)|:f%=f% .|
|000023d0| 20 32 3a 6c 63 25 2b 3d | 31 0d 0a d2 30 20 20 c9 | 2:lc%+=|1...0 .|
|000023e0| 20 22 3e 22 20 3a 6d 25 | 21 34 3d 6d 66 25 3a f2 | ">" :m%|!4=mf%:.|
|000023f0| 5f 6d 65 6e 75 28 a0 28 | c1 6d 24 2c 32 2c a7 6d |_menu(.(|.m$,2,.m|
|00002400| 24 2c 22 24 22 29 29 29 | 29 0d 0a dc 22 20 20 20 |$,"$")))|)..." |
|00002410| 20 20 20 20 20 20 20 20 | 20 6d 24 3d c1 6d 24 2c | | m$=.m$,|
|00002420| a7 6d 24 2c 22 24 22 29 | 2b 31 29 0d 0a e6 26 20 |.m$,"$")|+1)...& |
|00002430| 20 c9 20 22 7d 22 20 3a | 6d 25 21 34 3d a0 28 c1 | . "}" :|m%!4=.(.|
|00002440| 6d 24 2c 32 2c a7 6d 24 | 2c 22 40 22 29 2d 32 29 |m$,2,.m$|,"@")-2)|
|00002450| 29 0d 0a f0 22 20 20 20 | 20 20 20 20 20 20 20 20 |)..." | |
|00002460| 20 6d 24 3d c1 6d 24 2c | a7 6d 24 2c 22 40 22 29 | m$=.m$,|.m$,"@")|
|00002470| 2b 31 29 0d 0a fa 22 20 | 20 c9 20 22 7c 22 20 3a |+1)..." | . "|" :|
|00002480| 6d 24 3d c1 6d 24 2c 32 | 29 3a 66 25 3d 66 25 20 |m$=.m$,2|):f%=f% |
|00002490| 84 20 26 38 30 0d 0b 04 | 3b 20 20 c9 20 22 a4 22 |. &80...|; . "."|
|000024a0| 20 3a 6d 31 24 3d a0 28 | c1 6d 24 2c 32 2c a7 6d | :m1$=.(|.m$,2,.m|
|000024b0| 24 2c 22 40 22 29 2d 32 | 29 29 2b 22 2c 22 2b 6d |$,"@")-2|))+","+m|
|000024c0| 31 24 3a 6d 24 3d a4 69 | 74 65 6d 28 6d 31 24 29 |1$:m$=.i|tem(m1$)|
|000024d0| 0d 0b 0e 1a 20 20 c9 20 | 22 24 22 20 3a 73 25 3d |.... . |"$" :s%=|
|000024e0| 73 25 20 84 20 26 46 31 | 30 30 0d 0b 18 3d 20 20 |s% . &F1|00...= |
|000024f0| 20 20 20 20 20 20 20 20 | 20 20 e7 20 c1 6d 24 2c | | . .m$,|
|00002500| 32 2c 31 29 3d 22 2a 22 | 20 8c 20 20 6d 24 3d 22 |2,1)="*"| . m$="|
|00002510| 24 22 2b c1 6d 24 2c 33 | 29 20 20 8b 20 20 66 25 |$"+.m$,3|) . f%|
|00002520| 3d 66 25 20 84 20 34 0d | 0b 54 20 20 20 20 20 20 |=f% . 4.|.T |
|00002530| 20 20 20 20 20 20 20 e7 | 20 c1 6d 24 2c 32 2c 31 | .| .m$,2,1|
|00002540| 29 3d 22 3c 22 20 8c 0d | 0b 5e 1a 20 20 20 20 20 |)="<" ..|.^. |
|00002550| 20 20 20 20 20 20 20 20 | 6d 24 3d c1 6d 24 2c 33 | |m$=.m$,3|
|00002560| 29 0d 0b 68 28 20 20 20 | 20 20 20 20 20 20 20 20 |)..h( | |
|00002570| 20 20 74 25 3d a0 28 c1 | 6d 24 2c 31 2c a7 6d 24 | t%=.(.|m$,1,.m$|
|00002580| 2c 22 3e 22 29 2d 31 29 | 29 0d 0b 72 1e 20 20 20 |,">")-1)|)..r. |
|00002590| 20 20 20 20 20 20 20 20 | 20 20 e7 20 74 25 3e 77 | | . t%>w|
|000025a0| 25 20 77 25 3d 74 25 0d | 0b 7c 27 20 20 20 20 20 |% w%=t%.|.|' |
|000025b0| 20 20 20 20 20 20 20 20 | 6d 24 3d 22 24 22 2b c1 | |m$="$"+.|
|000025c0| 6d 24 2c a7 6d 24 2c 22 | 3e 22 29 2b 31 29 0d 0b |m$,.m$,"|>")+1)..|
|000025d0| 86 11 20 20 20 20 20 20 | 20 20 20 20 20 20 cd 0d |.. | ..|
|000025e0| 0b 90 2a 20 20 20 20 20 | 20 20 20 20 20 20 20 6d |..* | m|
|000025f0| 25 21 31 32 3d a0 28 c1 | 6d 24 2c 32 2c a7 6d 24 |%!12=.(.|m$,2,.m$|
|00002600| 2c 22 28 22 29 2d 32 29 | 29 0d 0b 9a 22 20 20 20 |,"(")-2)|)..." |
|00002610| 20 20 20 20 20 20 20 20 | 20 6d 24 3d c1 6d 24 2c | | m$=.m$,|
|00002620| a7 6d 24 2c 22 28 22 29 | 2b 31 29 0d 0b a4 2a 20 |.m$,"(")|+1)...* |
|00002630| 20 20 20 20 20 20 20 20 | 20 20 20 6d 25 21 32 30 | | m%!20|
|00002640| 3d a0 28 c1 6d 24 2c 31 | 2c a7 6d 24 2c 22 29 22 |=.(.m$,1|,.m$,")"|
|00002650| 29 2d 31 29 29 0d 0b ae | 22 20 20 20 20 20 20 20 |)-1))...|" |
|00002660| 20 20 20 20 20 6d 24 3d | c1 6d 24 2c a7 6d 24 2c | m$=|.m$,.m$,|
|00002670| 22 29 22 29 2b 31 29 0d | 0b b8 30 20 20 20 20 20 |")")+1).|..0 |
|00002680| 20 20 20 20 20 20 20 e7 | 20 a9 28 6d 24 29 3e 30 | .| .(m$)>0|
|00002690| 20 6d 25 21 31 36 3d a0 | 28 6d 24 29 20 8b 20 6d | m%!16=.|(m$) . m|
|000026a0| 25 21 31 36 3d 2d 31 0d | 0b c2 16 20 20 20 20 20 |%!16=-1.|... |
|000026b0| 20 20 20 20 20 20 20 6d | 24 3d 22 40 22 0d 0b cc | m|$="@"...|
|000026c0| 06 20 cb 0d 0b d6 06 20 | e1 0d ff |. ..... |... |
+--------+-------------------------+-------------------------+--------+--------+
